100 REM   SPEED TEST DEMO
105 REM
110 PRINT"[147]"(null)(12,5)"F+M  MANAGER"
120 PRINT(null)(11,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 PRINT(null)(13,8)"SPEED TEST"
140 PRINT"BITTE LEGEN SIE EINE LEERE DISKETTE EIN";
150 (null) A$
160 PRINT"[145]                                        "
170 (null)"S:TEST-DATEI,TEST-DATEI+"
180 PRINT(null)(6,10)"ANZAHL DER DATENSAETZE : ";
190 (null) 4,A
200 (null)"I"
210 GOSUB460
220 PRINT(null)(12,13)"> CREATING..."
230 (null)"TEST-DATEI",5,12,10,14,16,18,A
240 GOSUB460
250 :
260 PRINT(null)(12,13)"> WRITING... "
270 PRINT(null)(12,20)"DATENSATZ#"
280 (null)"TEST-DATEI"
290 GOSUB460
300 FORI=1TOA
310 (null)I,1,"RECORD#"+STR$(I)
320 PRINT(null)(22,20)I
330 NEXT
340 PRINT(null)(12,13)"   TASTE [146]!  [157][157][157]";
350 (null) A$
360 :
370 PRINT(null)(12,13)"> READING... "
380 PRINT(null)(6,20)"FELD-INHALT: '            '"
390 FORI=1TOA
400 (null)I,1,A$
410 PRINT(null)(20,20)A$
420 NEXT
430 (null)
440 GOSUB460
450 END
460 PRINT(null)(0,15)"                                       "
470 PRINT(null)(19-LEN(DS$)/2,15)DS$
480 RETURN